From 1ce6e062850a2d186c5d91ea496b09c7436066b8 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 7 May 2002 05:46:05 +0000 Subject: [PATCH] (lisp_data_to_selection_data): Don't set selection type if comes from the Lisp object's car. If the selection contains a pure ASCII text, always return QSTRING as its type. --- src/xselect.c | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/xselect.c b/src/xselect.c index 03580b782fe..c95cc211c1d 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -1765,11 +1765,16 @@ lisp_data_to_selection_data (display, obj, *data_ret = x_encode_text (obj, Vnext_selection_coding_system, 1, (int *) size_ret, &stringp); *nofree_ret = (*data_ret == XSTRING (obj)->data); - if (EQ (Vnext_selection_coding_system, - Qcompound_text_with_extensions)) - type = QCOMPOUND_TEXT; - else if (NILP (type)) - type = (stringp ? QSTRING : QCOMPOUND_TEXT); + if (NILP (type)) + { + if (stringp && *nofree_ret) + type = QSTRING; + else if (EQ (Vnext_selection_coding_system, + Qcompound_text_with_extensions)) + type = QCOMPOUND_TEXT; + else + type = (stringp ? QSTRING : QCOMPOUND_TEXT); + } Vlast_coding_system_used = (*nofree_ret ? Qraw_text : Vnext_selection_coding_system); -- 2.30.2